home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / CDTools / MUIRexx / demos / MUIRexxBuild / attrs.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-04-20  |  4.2 KB  |  131 lines
  1. /* */
  2. options results
  3. parse arg comm' 'aname
  4.  
  5. /* Attribute TAG ID definitions */
  6.  
  7. MUIA_Background = 0x8042545b
  8. MUIA_Draggable = 0x80420b6e
  9. MUIA_Frame = 0x8042ac64
  10. MUIA_Group_Spacing = 0x8042866d
  11. Listview_DragType = 0x80425cd3
  12. List_Active = 0x8042391c
  13. List_Quiet = 0x8042d8c7
  14. Weight = 0x80421d1f
  15.  
  16. /* TAG variable definitions */
  17.  
  18. TRUE = 1
  19. FALSE = 0
  20. MUIV_Frame_None = 0
  21. MUII_BACKGROUND = 128
  22. Listview_DragType_Immediate = 1
  23. List_Insert_Bottom = -3
  24.  
  25. address BUILD
  26.  
  27. select
  28.     when comm = 'ADD' then do
  29.         parse var aname name','value .
  30.         list ID ALST INSERT STRING name',='
  31.         list ID VLST INSERT POS List_Insert_Bottom NODUP STRING strip(name) '=' strip(value)
  32.     end
  33.     when comm = 'VADD' then do
  34.         parse var aname name','value .
  35.         list ID VLST INSERT POS List_Insert_Bottom NODUP STRING strip(name) '=' strip(value)
  36.     end
  37.     when comm = 'MADD' then do
  38.         parse var aname name','value .
  39.         list ID ALST INSERT STRING name
  40.         list ID VLST INSERT POS List_Insert_Bottom NODUP STRING strip(name) '=' strip(value)
  41.     end
  42.     when comm = 'LIST' then do
  43.         window ID WATTR TITLE '"Attribute List"' COMMAND '"window ID WATTR CLOSE"' PORT BUILD
  44.             list ID BLST ATTRS Listview_DragType Listview_DragType_Immediate
  45.         endwindow
  46.  
  47.         call open('attrs','build:attrs.lst','R')
  48.         list ID BLST ATTRS List_Quiet TRUE
  49.         do while ~eof('attrs')
  50.             line = readln('attrs')
  51.             if line = '' then leave
  52.             parse var line name '=' value .
  53.             list ID BLST INSERT POS List_Insert_Bottom STRING name','value
  54.         end
  55.         list ID BLST ATTRS List_Quiet FALSE
  56.         call close('attrs')
  57.     end
  58.     when comm = 'VLIST' then do
  59.         window ID WVAR TITLE '"Variable List"' COMMAND '"window ID WVAR CLOSE"' PORT BUILD
  60.             list ID CLST ATTRS Listview_DragType Listview_DragType_Immediate
  61.         endwindow
  62.  
  63.         call open('vars','build:vars.lst','R')
  64.         list ID CLST ATTRS List_Quiet TRUE
  65.         do while ~eof('vars')
  66.             line = readln('vars')
  67.             if line = '' then leave
  68.             parse var line name '=' value .
  69.             list ID CLST INSERT POS List_Insert_Bottom STRING name','value
  70.         end
  71.         list ID CLST ATTRS List_Quiet FALSE
  72.         call close('vars')
  73.     end
  74.     when comm = 'MLIST' then do
  75.         window ID WMETH TITLE '"Method List"' COMMAND '"window ID WMETH CLOSE"' PORT BUILD
  76.             list ID MLST ATTRS Listview_DragType Listview_DragType_Immediate
  77.         endwindow
  78.  
  79.         call open('meths','build:meths.lst','R')
  80.         list ID MLST ATTRS List_Quiet TRUE
  81.         do while ~eof('meths')
  82.             line = readln('meths')
  83.             if line = '' then leave
  84.             parse var line name '=' value .
  85.             list ID MLST INSERT POS List_Insert_Bottom STRING name','value
  86.         end
  87.         list ID MLST ATTRS List_Quiet FALSE
  88.         call close('meths')
  89.     end
  90.     when comm = 'ASKSET' then do
  91.         call open('vars','build:vars.lst','R')
  92.         entries = ''
  93.         do while ~eof('vars')
  94.             line = readln('vars')
  95.             if line = '' then leave
  96.             parse var line vname .
  97.             n = index(upper(substr(vname,6)),upper(substr(aname,6,4)))
  98.             if n > 0 then entries = entries','vname
  99.         end
  100.         call close('vars')
  101.         parse var aname name','value
  102.         window ID ASET COMMAND '"build:attrs SET 'strip(name)'"'
  103.             group HORIZ
  104.                 text ATTRS Weight 0 MUIA_Frame MUIV_Frame_None MUIA_Background 0 LABEL strip(name)' = '
  105.                 poplist ID ASTR SPEC '6:18' LABELS entries CONTENT value
  106.             endgroup
  107.         endwindow
  108.     end
  109.     when comm = 'SET' then do
  110.         poplist ID ASTR
  111.         val = result
  112.         window ID ASET CLOSE
  113.         list ID ALST ATTRS List_Active
  114.         n = result
  115.         list ID ALST POS n STRING aname',='val
  116.         call open('vars','build:vars.lst','R')
  117.         do while ~eof('vars')
  118.             line = readln('vars')
  119.             if line = '' then leave
  120.             parse var line vname '=' value .
  121.             if compare(vname,val) = 0 then do
  122.                 list ID VLST INSERT POS List_Insert_Bottom NODUP STRING strip(vname) '=' strip(value)
  123.                 leave
  124.             end
  125.         end
  126.         call close('vars')
  127.     end
  128.     otherwise nop
  129. end
  130. exit
  131.